Общие подпрограммы

function Between<T>(val, a, b: T; inclusive: boolean := true): boolean; where T: IComparable<T>;
        Возвращает True, если значение val находится между a и b независимо от порядка a и b
function Clamp<T>(x,bottom,top: T): T; where T: IComparable<T>;
        Ограничивает значение x диапазоном [bottom, top]
function CommandLineArgs: array of string;
        Возвращает список аргументов командой строки, с которыми была запущена программа
procedure Dec(var i: integer);
        Уменьшает значение переменной i на 1
procedure Dec(var i: integer; n: integer);
        Уменьшает значение переменной i на n
procedure Dec(var e: перечислимый тип);
        Уменьшает значение перечислимого типа на 1
procedure Dec(var e: перечислимый тип; n: integer);
        Уменьшает значение перечислимого типа на n
function Eof: boolean;
        Возвращает True, если достигнут конец потока ввода
function Eoln: boolean;
        Возвращает True, если достигнут конец строки
procedure Inc(var i: integer);
        Увеличивает значение переменной i на 1
procedure Inc(var i: integer; n: integer);
        Увеличивает значение переменной i на n
procedure Inc(var e: перечислимый тип);
        Увеличивает значение перечислимого типа на 1
procedure Inc(var e: перечислимый тип; n: integer);
        Увеличивает значение перечислимого типа на n
function InRange<T>(val, a, b: T): boolean; where T: IComparable<T>;
        Возвращает True, если значение val находится между a и b включительно
function ObjectToString(obj: object): string;
        Преобразует объект в строковое представление
function Ord(a: целое): целое;
        Возвращает порядковый номер значения a
function Ord(a: перечислимый тип): integer;
        Возвращает порядковый номер значения a
function Pred(x: целое): целое;
        Возвращает предшествующее x значение
function Pred(x: перечислимый тип): перечислимый тип;
        Возвращает предшествующее x значение
function SeekEof: boolean;
        Пропускает пробельные символы, после чего возвращает True, если достигнут конец потока ввода
function SeekEoln: boolean;
        Пропускает пробельные символы, после чего возвращает True, если достигнут конец строки
function Succ(x: целое): целое;
        Возвращает следующее за x значение
function Succ(x: перечислимый тип): перечислимый тип;
        Возвращает следующее за x значение
procedure Swap<T>(var a, b: T);
        Обменивает местами значения двух переменных